Copy Attribute Values from Object A to Object B with OLE or Not

Does anyone have an easy way to copy attributes from one Object A to another Object B and verify if the attribute contains OLE or not and copy that also?

if(!containsOle (tObj).(lstVal))
{
    sObj.lstVal"" = richText(tObj.lstVal"", true)
        refresh(sMod)
}
        else
        {
                (sObj).(lstVal) = ""
                oleCopy(tObj)
                olePaste(sObj)
                clipClear
                refresh(sMod)
        }

Re: Copy Attribute Values from Object A to Object B with OLE or Not
SystemAdmin - Mon Oct 12 01:12:43 EDT 2009